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-- LoaderUtilities.mesa 

-- Last Modified by Sandman, May 12, 1978 4:41 PM 

DIRECTORY 

AltoFileDefs: FROM "al tof iledef s" USING [FP], 
BcdDefs: FROM "bcddefs" USING [ 

CTHandle. CTIndex, CTNull , FTIndex, FTNull, FTSelf, MTHandle, MTIndex. 

MTNun, NameString, SGHandle. SGIndex], 
ControlDefs: FROM "controldef s" USING [ 

Alloc, GFT, GFTIndex, GFTNull. Global FrameHandle, MaxAl locSlot. 

NullGlobalFrame], 
DirectoryDefs: FROM "directorydef s" USING [EnumerateDirectory] , 
FrameDefs: FROM "framedefs" USING [FrameSize], 
InlineDefs: FROM "inlinedefs" USING [BITAND], 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

EnumerateConf igTable, EnumerateModuleTable, EnumerateSegTable], 
LoaderDefs: FROM "loaderdef s" , 
LoaderUtil ityDefs: FROM "loaderutil itydef s" USING [ 

BcdBase, Binding, FileHandle, FileSegmentHandle, FileTable, 

FileTableObject , GlobalFrameHandle, ImportBindingLink, Relocation], 
SegmentDefs: FROM "segmentdef s" USING [ 

EnumerateFileSegments, FileHandle, FileSegmentHandle, InsertFile, 

NewFileSegment, Read, ReleaseFile, VMtoFileSegment], 
StringDefs: FROM "stringdefs" USING [ 

AppendString, AppendSubString, EquivalentSubStrings , Substring, 

Substring Descriptor], 
SystemDefs: FROM "systemdefs" USING [Al locateHeapNode, FreeHeapNode]; 

DEFINITIONS FROM BcdDefs, LoaderUtil ityDefs ; 

LoaderUtilities: PROGRAM 

IMPORTS DirectoryDefs, FrameDefs. LoaderBcdUtilDefs, 

SegmentDefs, StringDefs, SystemDefs 
EXPORTS LoaderDefs, LoaderUtil ityDefs « PUBLIC 

BEGIN 

files: FileTable ^ NIL; 
loadee: BcdBase; 
ssb: BcdDefs .NameString; 
ftb: CARDINAL; 
nfilestofind: CARDINAL ^ 0; 
tableopen: BOOLEAN ^ FALSE; 

SubStringDescriptor : TYPE = StringDefs .SubStringDescriptor; 

AddFileName: PUBLIC PROCEDURE [file: BcdDefs . FTIndex] = 
BEGIN 

p: FileTable; 

i, offset, length: CARDINAL; 
FOR p ^ files, p. link UNTIL p = NIL DO 

IF file = p. file THEN RETURN; 

ENDLOOP; 
p <- SystemDefs. AllocateHeapNode[SIZE[FileTableObject]]; 
pt i' [file: file, filehandle: NIL, ext: FALSE, link: files]; 
files <- p ; 
IF file = BcdDefs. FTSelf THEN 

BEGIN 

p. filehandle <- SegmentDefs .\/MtoFileSegment[loadee]. file; 

RETURN 

END: 
IF file « BcdDefs. FTNull THEN BEGIN p. filehandle <- NIL; RETURN END; 
offset <- (f tb+f ile) .name; 
length ^ ssb . size[(ftb+file) .name]; 
FOR i IN [of fset. .offset+length) DO 

IF ssb. string. text[i] « '. THEN 
BEGIN p. ext ♦- TRUE; EXIT END; 

ENDLOOP; 
nfilestofind *- nfilestofind + 1; 
RETURN; 
END; 

FindFileName: PUBLIC PROCEDURE [name: StringDefs. Substring, ext: BOOLEAN] 
RETURNS [found: BOOLEAN, file: FileTable] - 
BEGIN OPEN StringDefs; 
filename: SubStringDescriptor ^ [base: 0ssb. string, offset:, length:]; 
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FOR file 4- files, file. link UNTIL file =• NIL DO 

filename. of fset ^ (ftb+file. file) . name; 

filename. length ^ ssb.size[(ftb+file .file) .name] ; 

IF LastCharIsDot[0f ilename] THEN name. length ^ name. length + 1; 

IF ext «= file.ext AND EquivalentSubStrings[@f ilename, name] THEN 
RETURN[TRUE, file]; 

ENDLOOP; 
RETURN[FALSE, NIL]; 
END; 

LastCharlsDot: PUBLIC PROCEDURE [name: StringDefs. Substring] RETURNS [BOOLEAN] ■ 
BEGIN 

RETURN[name.base[name.off set+name.length-1] ■ '.]; 
END; 

FileNotFound: PUBLIC SIGNAL [name: STRING] RETURNS [file: FileHandle] = CODE; 

LookupFileTable: PUBLIC PROCEDURE - 
BEGIN 

p: FileTable; 

ssd: StringDefs .SubStringDe scrip tor; 
name: STRING ^ [40]; 

IF nfilestofind # THEN Di rectoryDef s . EnumerateDirectory[CheckOne] ; 
FOR p ^ files, p. link UNTIL p « NIL DO 

IF p.filehandle = NIL AND p. file ff BcdDef s , FTNul 1 THEN 
BEGIN 
ssd *r [base: @ssb. string, offset: (ftb+p. file) .name, 

length: ssb.size[( ftb+p. file) .name]] ; 
name. length ♦- 0; 

StringDefs.AppendSubString[name, @ssd]; 
IF p. ext THEN StringDefs . AppendString[name . ".bcd"L]; 
p.filehandle <- SIGNAL FileNotFound[name] ; 
END; 
ENDLOOP; 
END; 

CheckOne: PROCEDURE [fp: POINTER TO Al toFileDef s . FP. name: STRING] 
RETURNS [found: BOOLEAN] = 
BEGIN OPEN StringDefs; 
i: CARDINAL; 

dirName: SubStringDescriptor; 

bed: SubStringDescriptor ♦- [base: "bcd"L. offset: 0, length: 3]; 
file: LoaderUtilityDefs. FileTable; 
FOR i IN [0. .name. length) DO 
IF name[i] = '. THEN 
BEGIN 

IF name.length-i # 5 THEN GOTO UseWholeName; 
dirName *- [base: name, offset: i + 1, length: 3]; 
IF ~EquivalentSubStrings[@dirName. ©bed] THEN GOTO UseWholeName; 
dirName .off set <- 0; dirName. length ^ i; 
GOTO HasBCDExtension; 
END; 
REPEAT 

UseWholeName => NULL; 
HasBCDExtension »> 
BEGIN 

[found, file] <- FindFileName[@dirName. FALSE]; 
IF found THEN RETURN [ThisIsTheOne[f p . file]]; 
END; 
ENDLOOP; 
dirName <- [base: name, offset: 0, length: name. length-1]; -- ignore dot on end 
[found, file] ^ FindFileName[@dirName, TRUE]; 
RETURN [IF found THEN ThisIsTheOne[f p , file] ELSE FALSE]; 
END; 

ThisIsTheOne: PROCEDURE [fp: POINTER TO Al toFileDef s . FP, file: FileTable] 
RETURNS [BOOLEAN] - 
BEGIN 

f ile.f ilehandle <- SegmentDef s. InsertFile[fp. SegmentDefs.Read]; 
nfilestofind <- nfilestofind - 1; 
RETURN [nfilestofind-0]; 
END; 

FileHandleFromTable: PUBLIC PROCEDURE [filename: BcdDef s . FTIndex] 
RETURNS [file: SegmentDef s . FileHandl e] • 
BEGIN 
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p: FileTable; 

FOR p 4- files, p. link UNTIL p « NIL DO 

IF p. file » filename THEN 
RETURNCp.filehandle]; 

ENDLOOP; 
RETURN[NIL]; 
END; 

FinalizeUtilities: PUBLIC PROCEDURE « 
BEGIN 

p: FileTable; 
FOR files <r files, p UNTIL files - NIL DO 

p <- files .link; 

IF files. file ff NIL AND f il es .f ilehandle. segcount « THEN 
SegmentDef s .ReleaseFile[files.f ilehandle]; 

SystemDef s.FreeHeapNode[f lies]; 

ENDLOOP; 
tableopen <- FALSE; 

SysteniDefs.FreeHeapNode[BASE[ModuleTable]]; 
END; 

InitializeUtilities: PUBLIC PROCEDURE [bed: BcdBase] =• 
BEGIN OPEN SystemDef s; 
loadee <- bed; 

ssb <- LOOPHOLE[loadee+loadee.ssOffset]; 
ftb ^ LOOPHOLE[loadee+loadee.ftOffset]; 
IF tableopen THEN Final izeUtil ities[]; 
tableopen <- TRUE; 
ModuleTable <- DESCRIPTOR[ 

All oca teHeapNode[bcd.nModules*SIZE[Module Info]], bed.nModules]; 
nModulesEntered <- 0; 
END; 

-- Util ity Routines 

AssignControlModules: PUBLIC PROCEDURE [loadee: BedBase, Reloc: Relocation] 
BEGIN OPEN ControlDefs; 

ctb: CARDINAL ^ LOOPHOLE[loadee+loadee.ctOf fset] ; 
mtb: CARDINAL <- LOOPHOLE[loadee+l oadee .mtOf f set] ; 

ModuleSearch: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] « 
BEGIN OPEN ControlDefs; 

frame: Global FrameHandle <- GFT[Reloc[mth.gfi]] .frame; 
cti: CTIndex; 
gfi: GFTIndex; 

ControlGfi: PROCEDURE [cti: CTIndex] RETURNS [GFTIndex] « 
BEGIN 
RETURN[IF cti = CTNull OR ( ctb+cti ). control = MTNull THEN GFTNull 

ELSE (mtb+{ctb+eti). control ).gfi]; 
END; 
gfi ♦- ControlGf i[cti ♦- mth.config]; 

WHILE gfi = mth. gfi DO gfi <- ControlGf i[eti <- (etb+eti ) . conf ig] ENDLOOP; 
frame. global[0] ♦■ 

(IF gfi = GFTNull THEN NullGl obal Frame ELSE GFT[Reloc[gfi]] .frame) ; 
RETURN [FALSE]; 
END; 

[] <- LoaderBcdUtilDef s.EnumerateModuleTable[loadee, ModuleSearch]; 
END; 

EnterCodeFileNames: PUBLIC PROCEDURE [loadee: BcdBase] - 
BEGIN 
SegSearch: PROCEDURE [sgh: SGHandle. sgi: SGIndex] RETURNS [BOOLEAN] « 

BEGIN 

IF sgh. class = code THEN AddFileName[sgh.f ile]; 

RETURN[FALSE]; 

END; 
[] <- LoaderBcdUtilDefs.EnumerateSegTable[loadee, SegSearch]; 
RETURN; 
END; 

AllocateSingleModule: PUBLIC PROCEDURE [ 

loadee: BcdBase, framelinks: BOOLEAN] RETURNS [frame: POINTER] « 

BEGIN 

fsi: CARDINAL ^ 0; 

i: CARDINAL; 

mth: MTHandle <- LOOPHOLE[loadee+loadee .mtOf f set ,CARDINAL]+FIRST[MTIndex] ; 
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framelinks <- framelinks OR mth. links « frame OR '-mth.code. 1 inkspace; 
IF framelinks THEN fsi ^ mth .frame. length; 
fsi ^ NextMultipleOfFour[fsi] + mth.f ramesize; 
FOR i IN [0. .ControlDefs.MaxAllocSlot) DO 

IF FrameDefs.FrameSize[i] >« fsi THEN 
BEGIN fsi ^ i; EXIT END; 

ENDLOOP; 
frame ^ ControlDef s.Alloc[f si]; 
IF framelinks THEN 

frame <- NextMul tipleOfFour[f rame + mth.f rame, length]; 
RETURN[frame]; 
END; 

NextMultipleOfFour: PROCEDURE [x; UNSPECIFIED] RETURNS [UNSPECIFIED] => 
BEGIN 

RETURN[x + InlineDefs.BITAND[-x. 38]]; 
END; 

RequiredFrameSpace: PUBLIC PROCEDURE [ 

loadee: BcdBase, alloc, framelinks: BOOLEAN] RETURNS [space: CARDINAL] « 
BEGIN 

FrameSize: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] « 
BEGIN 

IF alloc THEN space *- NextMul tipleOfFour[space+l]; 
IF framelinks OR mth. links = frame OR ~mth.code. 1 inkspace THEN 

space *■ space + mth .frame, length; 
space ♦- NextMul tipleOfFour[space] + mth.f ramesize; 

IF alloc AND -framelinks AND mth. links = code AND mth . code. 1 inkspace AND 
mth.f ramesize <= 4 THEN space <- spacers; -- this tries 
-- to catch the case where a frame is alloced and framesize <= 4 so 
-- it makes it so that enough space is counted so that a small frame 
-- will fit. 
RETURN[FALSE]; 
END; 
space ^ 0; 

[] <- LoaderBcdUtilDef s .EnumerateModuleTable[loadee, FrameSize]; 
RETURN; 
END; 

ControlModuleFrame: PUBLIC PROCEDURE [loadee: BcdBase, Reloc: Relocation] 
RETURNS [ControlDefs.GlobalFrameHandle] » 
BEGIN OPEN ControlDefs; 

mtb: CARDINAL ♦- LOOPHOLE[loadee + loadee.mtOf f set]; 
control: MTIndex ^ MTNull; 

ConfigSearch: PROCEDURE [cth: CTHandle. cti: CTIndex] RETURNS [BOOLEAN] = 
BEGIN 

IF cth.config = CTNull THEN 
BEGIN 

control *- cth. control; 
RETURN [TRUE]; 
END; 
RETURN [FALSE]; 
END; 
[] <- LoaderBcdUtilDef s .EnumerateConfigTable[loadee, ConfigSearch]; 
RETURN[IF control = MTNull THEN ControlDef s . Nul IGlobal Frame 

ELSE GFT[Reloc[(mtb+control).gfi]]. frame]; 
END; 

InitlmportBinding: PUBLIC PROCEDURE [size: CARDINAL] 
RETURNS [binding: Binding] = 
BEGIN OPEN SystemDefs; 
i: CARDINAL; 
binding ♦- 

DESCRIPTOR[AllocateHeapNode[size*SIZE[TmportBindingLink]], size]; 
FOR i IN [0. .size) DO 

binding[i] <- [whichgfi: 0, body: notbound[]]; 

ENDLOOP; 
END; 

FindFramelndex: PUBLIC PROCEDURE [ 

mth: MTHandle, framelinks: BOOLEAN] RETURNS [fsi: CARDINAL] « 

BEGIN 

space: CARDINAL <- 0; 

IF framelinks THEN space <- mth . frame .length; 

space <- NextMul tipleOfFour[space] + mth.f ramesize; 

FOR fsi DECREASING IN [0 . .ControlDef s .MaxAllocSlot) DO 
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IF space >« FranieDefs.FrameSize[fsi] THEN RETURN[fsi]; 

ENDLOOP; 
RETURN[0]; -- see RequiredFrameSpace for alloced modules w/ framesize<7 
END; 

Modulelnfo: TYPE - RECORD [ 
mth: MTHandle, 
frame: GlobalFrameHandle, 
bound: BOOLEAN, 
sgi: SGIndex]; 

ModuleTable: DESCRIPTOR FOR ARRAY OF Modulelnfo: 
nModulesEntered: CARDINAL; 

FindCodeSegment: PUBLIC PROCEDURE [ 

loadee: BcdBase, mth: MTHandle, frame: GlobalFrameHandle] 

RETURNS [seg: FileSegmentHandle] - 

BEGIN OPEN SegmentDefs; 

sgh: SGHandle ^ mth. code. sgi+LOOPHOLE[loadee+loadee. sgOff set, CARDINAL]; 

file: FileHandle; 

i: CARDINAL; 

pages: CARDINAL; 

FindSegment: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 

BEGIN 

RETURN[s . f ile » file AND s.base = sgh. base AND s. pages = pages]; 

END; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i] .mth. code. sgi = mth. code. sgi THEN 
RETURN[ModuleTable[i].f rame.codesegment] ; 

ENDLOOP; 
file <- FileHandleFromTable[sgh,f ile]; 
pages «- sgh.pages+sgh.extraPages; 
seg <~ EnumerateFileSegments[FindSegment]; 

IF seg = NIL THEN seg «- NewFileSegment[f ile, ^sgh.base, pages. Read]; 
ModuleTable[nModulesEntered] ^ 

Moduleinf o[mth, frame, FALSE, mth. code. sgi]; 
nModulesEntered ^ nModulesEntered + 1; 
RETURN 
END; 

ModulelsBound: PUBLIC PROCEDURE [mth: MTHandle] » 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i].mth = mth THEN ModuleTable[i] .bound <- TRUE; 
ENDLOOP; 
RETURN 
END; 

IsModuleBound: PUBLIC PROCEDURE [mth: MTHandle] RETURNS [BOOLEAN] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i].mth = mth AND ModuleTable[i] .bound THEN RETURN[TRUE] ; 

ENDLOOP; 
RETURN[FALSE]; 
END; 

END 



